home *** CD-ROM | disk | FTP | other *** search
/ Publisher Platinum / Publisher Platinum.iso / clipart / utils / show38a / examples.exe / GUESS.SHW < prev    next >
Encoding:
Text File  |  1993-02-01  |  2.2 KB  |  106 lines
  1. ;*********************************************************************;
  2. ; Sciptname..:  Guess.SHW                                             ;
  3. ; Date.......:  1st. Feb. 1993, by RMP DATA.                          ;
  4. ; Purpose....:  Promotion for DATASHOW, as an example script.         ;
  5. ;*********************************************************************;
  6.  
  7. COLOR BACKGROUND 1
  8. COLOR FOREGROUND 15
  9.  
  10. SCREEN CLEAR
  11. DRAW BOX 79 24
  12.  
  13. COLOR BACKGROUND 4
  14. GOXY 14 2
  15. SET DELAYFACTOR 5
  16. WRITE "W e l l c o m e  t o  G u e s s  a  N u m b e r . . ."
  17. SET DELAYFACTOR 0
  18.  
  19. ; Create variables for input
  20. VARIABLE CREATE times TYPE NUMBER 1
  21. VARIABLE CREATE result TYPE NUMBER 1
  22. VARIABLE CREATE input TYPE NUMBER 1
  23.  
  24. ; Create variables for score keeping
  25. VARIABLE CREATE score TYPE NUMBER 10000
  26. VARIABLE CREATE name TYPE STRING ""
  27.  
  28. IF FILE "guess1.var" DO
  29.    VARIABLE LOAD score FROM "guess1.var"
  30. END
  31.  
  32. IF FILE "guess2.var" DO
  33.    VARIABLE LOAD name FROM "guess2.var"
  34. END
  35.  
  36. GOXY 6 5
  37. WRITE "Best score.....:"
  38. GOXY 6 7
  39. WRITE "Name...........:"
  40. GOXY 24 5
  41. IF score EQ 10000 DO
  42.    WRITE "<None>"
  43.    GOXY 24 7
  44.    WRITE "<None>"
  45. END
  46. IF score NE 10000 DO
  47.    WRITE score
  48.    GOXY 24 7
  49.    WRITE name
  50. END
  51.  
  52. MATH result = RANDOM(100)
  53.  
  54. GOXY 18 10
  55. WRITE "Guess the secret number between 1 and 100!"
  56.  
  57. MARK 1
  58.  
  59. COLOR BACKGROUND 1
  60. GOXY 30 12
  61. WRITE times
  62. WRITE ". Guess:"
  63.  
  64. GOXY 42 12
  65. READ STRING input 3
  66.  
  67. COLOR BACKGROUND 4
  68. GOXY 18 20
  69.  
  70. IF input EQ result DO JUMPMARK 10
  71. IF input LT result DO JUMPMARK 2
  72.  
  73. WRITE "The entered number is higher than the secret."
  74. JUMPMARK 3
  75.  
  76. MARK 2
  77. WRITE "The entered number is lower than the secret. "
  78.  
  79. MARK 3
  80. VARIABLE INCREASE times 1
  81. JUMPMARK 1
  82.  
  83. MARK 10
  84. WRITE "Congratulation... You found the secret number!"
  85. COLOR BACKGROUND 1
  86. GOXY 29 22
  87. WRITE "Number of tries:"
  88. GOXY 49 22
  89. WRITE times
  90. WAIT 3
  91.  
  92. IF times LE score DO
  93.    MATH score = times
  94.    VARIABLE SAVE score TO "guess1.var"
  95.    GOXY 7 24
  96.    WRITE "Congratulation! - You've made the honor roll! - Enter your name..."
  97.    GOXY 24 7
  98.    READ STRING name 20
  99.    VARIABLE SAVE name TO "guess2.var"
  100. END
  101. IF times GT score DO
  102.    GOXY 8 24
  103.    WRITE "Sorry! - You did not make the honor roll! - Please try again..."
  104.    WAIT 4
  105. END
  106.